home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 18 / AMIGAplus Sonderheft 18 (1999)(ICP)(DE)[!].iso / Rexx / _0_new_mailpacket.rexx next >
OS/2 REXX Batch file  |  1998-02-17  |  672b  |  36 lines

  1. /* YAMandPGP V1.0 -- Roberto Ragusa 1997 */
  2. /* new mailpacket */
  3.  
  4. windowfilename = 'CON:50/50/600/200/YAM-REXX/CLOSE'
  5.  
  6. plain_mail_txt = 'All is attached...'
  7.  
  8. CALL CLOSE 'STDOUT'
  9. CALL CLOSE 'STDIN'
  10. CALL OPEN 'STDIN',windowfilename
  11. CALL PRAGMA '*','STDIN'
  12. CALL OPEN 'STDOUT','*'
  13.  
  14. options results
  15.  
  16. address command
  17.  
  18. call pragma('D','MAILPACKETS:')
  19.  
  20. 'delete >nil: newmessage/attachment/#? all force'
  21. 'delete >nil: newmessage/~(attachment) all force'
  22.  
  23. call pragma('D','newmessage')
  24.  
  25. 'echo >plain_mail.txt "'||plain_mail_txt||'"'
  26. 'echo >>plain_mail.txt ""'
  27.  
  28. call pragma('D','attachment')
  29.  
  30. 'echo >mail.txt "write here!"'
  31.  
  32. address YAM
  33.  
  34. 'Request "Prepare your mail in Mnew:" "OK"'
  35.  
  36.